establish grid-type properties
designX = 4
designY = 23
designWidth = 160
designHeight = 68
'
gridType = XuiDialog2B
XuiSetGridTypeValue (gridType, @"xWin", designX)
XuiSetGridTypeValue (gridType, @"yWin", designY)
XuiSetGridTypeValue (gridType, @"width", designWidth)
XuiSetGridTypeValue (gridType, @"height", designHeight)
' XuiSetGridTypeValue (gridType, @"minWidth", designWidth)
' XuiSetGridTypeValue (gridType, @"minHeight", designHeight)
' XuiSetGridTypeValue (gridType, @"maxWidth", designWidth)
' XuiSetGridTypeValue (gridType, @"maxHeight", designHeight)
XuiSetGridTypeValue (gridType, @"border", $$BorderFrame)
XuiSetGridTypeValue (gridType, @"can", $$Focus OR $$Respond OR $$Callback
OR $$InputTextString)
XuiSetGridTypeValue (gridType, @"focusKid", $TextLine)
XuiSetGridTypeValue (gridType, @"inputTextString", $TextLine)
XuiSetGridTypeValue (gridType, @"redrawFlags", $$RedrawBorder)
IFZ message THEN RETURN
END SUB
END FUNCTION
The Initialize subroutine also establishes basic grid type properties. Whenever a
grid of this grid type is created, it is given the properties assigned in this section.
designX, designY, designWidth, designHeight are the position and size of the design window
GuiDesigner created the grid function from. Windows created sending a #CreateWindow
message to this grid with a -1 in v0,v1,v2,v3 will position and size the window as
designed. Otherwise, it is placed and sized to the values in v0,v1,v2,v3.
When Window ToFunction translates a design window into a grid function, it
sets minWidth, minHeight, maxWidth, maxHeight to designWidth, designHeight. This
makes all grids of this grid type fixed-size and non-resizable. These four lines
were disabled in XuiDialog2B when GetSmallestSize and Resize subroutines were added to
make the grid resizable.